Replicable Property Example

These examples illustrate two situations for using the Replicable Property � on a database and on an object in the database.

This example makes Northwind.mdb a replicable database. It's recommended that you make a back-up copy of Northwind before running this code, and that you adjust the path to Northwind as appropriate to its location on your computer.

Sub MakeDesignMasterX()

   Dim dbsNorthwind As Database
   Dim prpNew As Property

   ' Open database for exclusive access.
   Set dbsNorthwind = OpenDatabase("Northwind.mdb", _
      True)

   With dbsNorthwind

      ' If Replicable property doesn't exist, create it.
      ' Turn off error handling in case property exists.
      On Error Resume Next
      Set prpNew = .CreateProperty("Replicable", _
         dbText, "T")
      .Properties.Append prpNew

      ' Set database Replicable property to True.
      .Properties("Replicable") = "T"

      .Close

   End With

End Sub

This example creates a new TableDef and then makes it replicable. The database must first be replicable for this procedure to work.

Sub CreateReplLocalTableX()

   Dim dbsNorthwind As Database
   Dim tdfNew As TableDef
   Dim fldNew As Field
   Dim prpNew As Property

   Set dbsNorthwind = OpenDatabase("Northwind.mdb")
   ' Create a new TableDef named "Taxes".
   Set tdfNew = dbsNorthwind.CreateTableDef("Taxes")
   ' Define a text field named "Grade".
   Set fldNew = tdfNew.CreateField("Grade", dbText, 3)
   ' Append new field to the TableDef.
   tdfNew.Fields.Append fldNew

   ' Add the new TableDef to the database.
   dbsNorthwind.TableDefs.Append tdfNew

   ' Create a new Replicable property for new TableDef.
   Set prpNew = tdfNew.CreateProperty("Replicable", _
      dbText, "T")
   ' Append the Replicable property to the new
   ' TableDef.
   tdfNew.Properties.Append prpNew
   dbsNorthwind.Close

End Sub

The following code sets the Replicable property on the specified TableDef object to "T". If the property does not exist, it is created and appended to the table's Properties collection, and given a value of "T".

Sub SetReplicable(tdfTemp As TableDef)

   On Error GoTo ErrHandler

   tdfTemp.Properties("Replicable") = "T"

   On Error GoTo 0

   Exit Sub

ErrHandler:

   Dim prpNew As Property

   If Err.Number = 3270 Then
      Set prpNew = tdfTemp.CreateProperty("Replicable", _
         dbText, "T")
      tdfTemp.Properties.Append prpNew
   Else
      MsgBox "Error " & Err & ": " & Error
   End If

End Sub